home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tex / lindner / texware.zoo / source / special.s < prev    next >
Encoding:
Text File  |  1990-06-22  |  351 b   |  19 lines
  1. .EXPORT save_a6, restore_a6, Save_a6, Restore_a6 
  2.         TEXT
  3.  
  4. save_a6:        move.l A6, __A6a__
  5.                 rts
  6.  
  7. restore_a6:     movea.l __A6a__, A6
  8.                 rts
  9.  
  10. Save_a6:        move.l A6, __A6b__
  11.                 rts
  12.  
  13. Restore_a6:     movea.l __A6b__, A6
  14.                 rts
  15.  
  16. __A6a__:  dc.l    1
  17. __A6b__:  dc.l    1
  18.   
  19.